Shareware for Windows/Trust Shareware CD.iso/winshare/vb/eztab/form2.frm

Visual Basic Form | 1993-12-04 | 8.2 KB | 266 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H8000000F&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Form1"
   ClientHeight    =   5460
   ClientLeft      =   1770
   ClientTop       =   510
   ClientWidth     =   6240
   ClipControls    =   0   'False
   Height          =   5865
   HelpContextID   =   4500
   Left            =   1710
   LinkTopic       =   "Form1"
   ScaleHeight     =   5460
   ScaleWidth      =   6240
   Top             =   165
   Width           =   6360
   Begin EZTab EZTab
      BackColor       =   &H8000000F&
      Caption         =   "EZTab&4"
      ClipControls    =   0   'False
      Height          =   3000
      Index           =   3
      Left            =   120
      TabIndex        =   3
      TabLeft         =   2730
      TabWidth        =   930
      Top             =   120
      Width           =   6000
      Begin Frame Frame1
         BackColor       =   &H8000000F&
         Caption         =   "Frame1"
         ClipControls    =   0   'False
         Height          =   1335
         Left            =   960
         TabIndex        =   11
         Top             =   720
         Width           =   4200
         Begin CheckBox Check4
            BackColor       =   &H8000000F&
            Caption         =   "Check4"
            Height          =   375
            Left            =   360
            TabIndex        =   13
            Top             =   840
            Width           =   3300
         End
         Begin CheckBox Check3
            BackColor       =   &H8000000F&
            Caption         =   "Check3"
            Height          =   375
            Left            =   360
            TabIndex        =   12
            Top             =   360
            Width           =   3300
         End
      End
      Begin TextBox Text6
         Height          =   375
         Left            =   960
         TabIndex        =   14
         Text            =   "Text6"
         Top             =   2280
         Width           =   4200
      End
   End
   Begin EZTab EZTab
      BackColor       =   &H8000000F&
      Caption         =   "EZTab&3"
      ClipControls    =   0   'False
      Height          =   3000
      Index           =   2
      Left            =   120
      TabIndex        =   2
      TabLeft         =   1830
      TabWidth        =   930
      Top             =   120
      Width           =   6000
      Begin OptionButton Option2
         BackColor       =   &H8000000F&
         Caption         =   "Option2"
         Height          =   375
         Left            =   1500
         TabIndex        =   10
         Top             =   1800
         Width           =   3300
      End
      Begin OptionButton Option1
         BackColor       =   &H8000000F&
         Caption         =   "Option1"
         Height          =   375
         Left            =   1500
         TabIndex        =   9
         Top             =   900
         Value           =   -1  'True
         Width           =   3300
      End
   End
   Begin EZTab EZTab
      BackColor       =   &H8000000F&
      Caption         =   "EZTab&2"
      ClipControls    =   0   'False
      Height          =   3000
      Index           =   1
      Left            =   120
      TabIndex        =   1
      TabLeft         =   930
      TabWidth        =   900
      Top             =   120
      Width           =   6000
      Begin TextBox Text5
         Height          =   2055
         Left            =   360
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   8
         Text            =   "Text5"
         Top             =   600
         Width           =   5295
      End
   End
   Begin EZTab EZTab
      BackColor       =   &H8000000F&
      Caption         =   "EZTab&1"
      ClipControls    =   0   'False
      Height          =   3000
      Index           =   0
      Left            =   120
      TabIndex        =   0
      TabLeft         =   30
      TabWidth        =   900
      Top             =   120
      Width           =   6000
      Begin TextBox Text4
         Height          =   285
         Left            =   600
         TabIndex        =   7
         Text            =   "Text4"
         Top             =   2400
         Width           =   4800
      End
      Begin TextBox Text3
         Height          =   285
         Left            =   600
         TabIndex        =   6
         Text            =   "Text3"
         Top             =   1800
         Width           =   4800
      End
      Begin TextBox Text2
         Height          =   285
         Left            =   600
         TabIndex        =   5
         Text            =   "Text2"
         Top             =   1200
         Width           =   4800
      End
      Begin TextBox Text1
         Height          =   285
         Left            =   600
         TabIndex        =   4
         Text            =   "Text1"
         Top             =   600
         Width           =   4800
      End
   End
   Begin PictureBox Picture1
      AutoRedraw      =   -1  'True
      ClipControls    =   0   'False
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Courier"
      FontSize        =   9.75
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1335
      Left            =   120
      ScaleHeight     =   1305
      ScaleWidth      =   3345
      TabIndex        =   20
      TabStop         =   0   'False
      Top             =   3960
      Width           =   3375
   End
   Begin CommandButton Command1
      Caption         =   "Disable #4"
      Height          =   375
      Index           =   3
      Left            =   4920
      TabIndex        =   19
      Top             =   4680
      Width           =   1200
   End
   Begin CommandButton Command1
      Caption         =   "Disable #3"
      Height          =   375
      Index           =   2
      Left            =   4920
      TabIndex        =   18
      Top             =   4200
      Width           =   1200
   End
   Begin CommandButton Command1
      Caption         =   "Disable #2"
      Height          =   375
      Index           =   1
      Left            =   3600
      TabIndex        =   17
      Top             =   4680
      Width           =   1200
   End
   Begin CommandButton Command1
      Caption         =   "Disable #1"
      Height          =   375
      Index           =   0
      Left            =   3600
      TabIndex        =   16
      Top             =   4200
      Width           =   1200
   End
   Begin Ctl3D Ctl3D1
      ClassList       =   FORM2.FRX:0000
      IgnoreColors    =   -1  'True
      Left            =   120
      Top             =   3960
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H8000000F&
      Caption         =   "double click in the 'tab area' with the right mouse button to switch between EZ-Tab controls in design mode."
      Height          =   375
      Left            =   120
      TabIndex        =   15
      Top             =   3360
      Width           =   6000
   End
Option Explicit
Sub Command1_Click (Index As Integer)
    eztab(Index).Enabled = Not eztab(Index).Enabled
    If eztab(Index).Enabled = False Then
        Command1(Index).Caption = "Enable #" + Format$(Index + 1)
    Else
        Command1(Index).Caption = "Disable #" + Format$(Index + 1)
    End If
End Sub
Sub EZTab_Activate (Index As Integer)
    OutString "Activate", Index
End Sub
Sub EZTab_Click (Index As Integer)
    OutString "Click", Index
End Sub
Sub EZTab_DblClick (Index As Integer)
    OutString "DblClick", Index
End Sub
Sub EZTab_Deactivate (Index As Integer)
    OutString "Deactivate", Index
End Sub
Sub OutString (sText As String, iNum As Integer)
    sText = Left$(sText + Space$(20), 20) + Format$(iNum)
    If Picture1.CurrentY + Picture1.TextHeight(sText) >= Picture1.ScaleHeight Then
        Picture1.Cls
    End If
    Picture1.Print sText
End Sub